﻿Imports BUS

Public Class UserControlCapNhatNhanVien

    Private Sub UserControlCapNhatNhanVien_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
        Dim cvTable As New DataTable()
        Dim cvBUS As New ChucVuBUS()
        cvTable = cvBUS.LoatDanhSachChucVu()
        cbbChucVu.DataSource = cvTable
        cbbChucVu.DisplayMember = "TenChucVu"
        cbbChucVu.ValueMember = "MaChucVu"
        cbbChucVu.SelectedValue = 2
    End Sub
End Class
